#!/usr/bin/perl

use XML::RPC;
use Data::Dumper;

my $xmlrpc = XML::RPC->new('http://aapugr.wordpress.com/xmlrpc.php');
my $result = $xmlrpc->call("metaWeblog.getRecentPosts", 1,'aapugr', 'xxxxxx', 1);
my $ultimoid = $result->[0]{'postid'};

my $result = $xmlrpc->call("metaWeblog.newPost", $ultimoid+1,'aapugr', 'xxxxxx', {'title' => "Prueba dominguera",
										   'description' => "Esta es una prueba de Paloma"}, 1);
print "Post nuevo creado\n";

my $result = $xmlrpc->call("metaWeblog.getRecentPosts", 1,'aapugr', 'xxxxxx', 1);

print "La entrada más reciente es:\n";
print "Título: ".$result->[0]{'title'}."\n";
print "Contenido: ".$result->[0]{'description'}."\n";

print "Modificando el contenido de la entrada\n";
my $result = $xmlrpc->call("metaWeblog.editPost", $result->[0]{'postid'},'aapugr', 'xxxxxx', {'title' => "Prueba dominguera con cambio",
										   	       'description' => "Esta es una prueba de Paloma. Y esto es un cambio"}, 1);
print "Entrada modificada con éxito\n";

my $result = $xmlrpc->call("metaWeblog.getRecentPosts", 1,'aapugr', 'xxxxxx', 1);

print "La entrada más reciente ahora es:\n";
print "Título: ".$result->[0]{'title'}."\n";
print "Contenido: ".$result->[0]{'description'}."\n";
